home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / data / dora / dorasetc.plp < prev    next >
Text File  |  1995-06-30  |  20KB  |  539 lines
  1. %selID1    {
  2.     %id1 TalkID1;%id2 TalkID2;%id3 TalkID3;%id4 TalkID4;%id5 TalkID5;
  3.     %cmT1 CMt1;%cmT2 CMt2;%cmT3 CMt3;%cmT4 CMt4;%cmT5 CMt5;
  4.     %t5Set{TalkID1:=id1;CMt1:=cmT1;TalkID2:=id2;CMt2:=cmT2;TalkID3:=id3;
  5.         CMt3:=cmT3;TalkID4:=id4;CMt4:=cmT4;TalkID5:=id5;CMt5:=cmT5};
  6.     loop    ({
  7.         footnote({自動トークを発送したいID情報を入力して下さい});
  8.         SNDMSG({nyuryo_f.snd});
  9.         %a @plane(
  10.             {c自動トーク送信先ID情報入力(1/4)\n}|
  11.             {t送信先ID1    /xxxxxxxxxxxxxxxxxx\n}|
  12.             {s              / 検索 \n}|
  13.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  14.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  15.             {t送信先ID2    /xxxxxxxxxxxxxxxxxx\n}|
  16.             {s              / 検索 \n}|
  17.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  18.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  19.             {t送信先ID3    /xxxxxxxxxxxxxxxxxx\n}|
  20.             {s              / 検索 \n}|
  21.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  22.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  23.             {t送信先ID4    /xxxxxxxxxxxxxxxxxx\n}|
  24.             {s              / 検索 \n}|
  25.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  26.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  27.             {t送信先ID5    /xxxxxxxxxxxxxxxxxx\n}|
  28.             {s              / 検索 \n}|
  29.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  30.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  31.             {s              / 設定 / 取消 \n},
  32.             id1,cmT1,id2,cmT2,id3,cmT3,id4,cmT4,id5,cmT5);
  33. %id1    @head(@getline(a,1,1),{\n});    %texM1    @head(@getline(a,2,1),{\n});
  34. %cmT1    @head(@getline(a,3,1),{\n});    %id2    @head(@getline(a,4,1),{\n});
  35. %texM2    @head(@getline(a,5,1),{\n});    %cmT2    @head(@getline(a,6,1),{\n});
  36. %id3    @head(@getline(a,7,1),{\n});    %texM3    @head(@getline(a,8,1),{\n});
  37. %cmT3    @head(@getline(a,9,1),{\n});    %id4    @head(@getline(a,10,1),{\n});
  38. %texM4    @head(@getline(a,11,1),{\n});    %cmT4    @head(@getline(a,12,1),{\n});
  39. %id5    @head(@getline(a,13,1),{\n});    %texM5    @head(@getline(a,14,1),{\n});
  40. %cmT5    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  41.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  42.         case    (texM1,
  43.             { 1},{%id1 @HDsearch;t5Set;im({Yes})});
  44.         case    (texM2,
  45.             { 1},{%id2 @HDsearch;t5Set;im({Yes})});
  46.         case    (texM3,
  47.             { 1},{%id3 @HDsearch;t5Set;im({Yes})});
  48.         case    (texM4,
  49.             { 1},{%id4 @HDsearch;t5Set;im({Yes})});
  50.         case    (texM5,
  51.             { 1},{%id5 @HDsearch;t5Set;im({Yes})});
  52.         case    (ok,
  53.             { 1},{t5Set;im({No})},
  54.             { 2},{im({No})}
  55.             )})};
  56. %selID2    {
  57.     %id6 TalkID6;%id7 TalkID7;%id8 TalkID8;%id9 TalkID9;%id10 TalkID10;
  58.     %cmT6 CMt6;%cmT7 CMt7;%cmT8 CMt8;%cmT9 CMt9;%cmT10 CMt10;
  59.     %t10Set{TalkID6:=id6;CMt6:=cmT6;TalkID7:=id7;CMt7:=cmT7;TalkID8:=id8;
  60.         CMt8:=cmT8;TalkID9:=id9;CMt9:=cmT9;TalkID10:=id10;CMt10:=cmT10};
  61.     loop    ({
  62.         footnote({自動トークを発送したいID情報を入力して下さい});
  63.         SNDMSG({nyuryo_f.snd});
  64.         %a @plane(
  65.             {c自動トーク発送先ID情報入力(2/4)\n}|
  66.             {t送信先ID6    /xxxxxxxxxxxxxxxxxx\n}|
  67.             {s              / 検索 \n}|
  68.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  69.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  70.             {t送信先ID7    /xxxxxxxxxxxxxxxxxx\n}|
  71.             {s              / 検索 \n}|
  72.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  73.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  74.             {t送信先ID8    /xxxxxxxxxxxxxxxxxx\n}|
  75.             {s              / 検索 \n}|
  76.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  77.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  78.             {t送信先ID9    /xxxxxxxxxxxxxxxxxx\n}|
  79.             {s              / 検索 \n}|
  80.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  81.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  82.             {t送信先ID10    /xxxxxxxxxxxxxxxxxx\n}|
  83.             {s              / 検索 \n}|
  84.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  85.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  86.             {s              / 設定 / 取消 \n},
  87.             id6,cmT6,id7,cmT7,id8,cmT8,id9,cmT9,id10,cmT10);
  88. %id6    @head(@getline(a,1,1),{\n});    %texM6    @head(@getline(a,2,1),{\n});
  89. %cmT6    @head(@getline(a,3,1),{\n});    %id7    @head(@getline(a,4,1),{\n});
  90. %texM7    @head(@getline(a,5,1),{\n});    %cmT7    @head(@getline(a,6,1),{\n});
  91. %id8    @head(@getline(a,7,1),{\n});    %texM8    @head(@getline(a,8,1),{\n});
  92. %cmT8    @head(@getline(a,9,1),{\n});    %id9    @head(@getline(a,10,1),{\n});
  93. %texM9    @head(@getline(a,11,1),{\n});    %cmT9    @head(@getline(a,12,1),{\n});
  94. %id10    @head(@getline(a,13,1),{\n});    %texM10    @head(@getline(a,14,1),{\n});
  95. %cmT10    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  96.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  97.         case    (texM6,
  98.             { 1},{%id6 @HDsearch;t10Set;im({Yes})});
  99.         case    (texM7,
  100.             { 1},{%id7 @HDsearch;t10Set;im({Yes})});
  101.         case    (texM8,
  102.             { 1},{%id8 @HDsearch;t10Set;im({Yes})});
  103.         case    (texM9,
  104.             { 1},{%id9 @HDsearch;t10Set;im({Yes})});
  105.         case    (texM10,
  106.             { 1},{%id10 @HDsearch;t10Set;im({Yes})});
  107.         case    (ok,
  108.             { 1},{t10Set;im({No})},
  109.             { 2},{im({No})}
  110.             )})};
  111. %selID3    {
  112.     %id11 TalkID11;%id12 TalkID12;%id13 TalkID13;%id14 TalkID14;
  113.     %id15 TalkID15;
  114.     %cmT11 CMt11;%cmT12 CMt12;%cmT13 CMt13;%cmT14 CMt14;%cmT15 CMt15;
  115.     %t15Set{TalkID11:=id11;TalkID12:=id12;TalkID13:=id13;TalkID14:=id14;
  116.         TalkID15:=id15;CMt11:=cmT11;CMt12:=cmT12;CMt13:=cmT13;
  117.         CMt14:=cmT14;CMt15:=cmT15};
  118.     loop    ({
  119.         footnote({自動トークを発送したいID情報を入力して下さい});
  120.         SNDMSG({nyuryo_f.snd});
  121.         %a @plane(
  122.             {c自動トーク発送先ID情報入力(3/4)\n}|
  123.             {t送信先ID11    /xxxxxxxxxxxxxxxxxx\n}|
  124.             {s              / 検索 \n}|
  125.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  126.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  127.             {t送信先ID12    /xxxxxxxxxxxxxxxxxx\n}|
  128.             {s              / 検索 \n}|
  129.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  130.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  131.             {t送信先ID13    /xxxxxxxxxxxxxxxxxx\n}|
  132.             {s              / 検索 \n}|
  133.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  134.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  135.             {t送信先ID14    /xxxxxxxxxxxxxxxxxx\n}|
  136.             {s              / 検索 \n}|
  137.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  138.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  139.             {t送信先ID15    /xxxxxxxxxxxxxxxxxx\n}|
  140.             {s              / 検索 \n}|
  141.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  142.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  143.             {s              / 設定 / 取消 \n},
  144.         id11,cmT11,id12,cmT12,id13,cmT13,id14,cmT14,id15,cmT15);
  145. %id11    @head(@getline(a,1,1),{\n});    %texM11    @head(@getline(a,2,1),{\n});
  146. %cmT11    @head(@getline(a,3,1),{\n});    %id12    @head(@getline(a,4,1),{\n});
  147. %texM12    @head(@getline(a,5,1),{\n});    %cmT12    @head(@getline(a,6,1),{\n});
  148. %id13    @head(@getline(a,7,1),{\n});    %texM13    @head(@getline(a,8,1),{\n});
  149. %cmT13    @head(@getline(a,9,1),{\n});    %id14    @head(@getline(a,10,1),{\n});
  150. %texM14    @head(@getline(a,11,1),{\n});    %cmT14    @head(@getline(a,12,1),{\n});
  151. %id15    @head(@getline(a,13,1),{\n});    %texM15    @head(@getline(a,14,1),{\n});
  152. %cmT15    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  153.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  154.         case    (texM11,
  155.             { 1},{%id11 @HDsearch;t15Set;im({Yes})});
  156.         case    (texM12,
  157.             { 1},{%id12 @HDsearch;t15Set;im({Yes})});
  158.         case    (texM13,
  159.             { 1},{%id13 @HDsearch;t15Set;im({Yes})});
  160.         case    (texM14,
  161.             { 1},{%id14 @HDsearch;t15Set;im({Yes})});
  162.         case    (texM15,
  163.             { 1},{%id15 @HDsearch;t15Set;im({Yes})});
  164.         case    (ok,
  165.             { 1},{t15Set;im({No})},
  166.             { 2},{im({No})}
  167.             )})};
  168. %selID4    {
  169.     %id16 TalkID16;%id17 TalkID17;%id18 TalkID18;%id19 TalkID19;
  170.     %id20 TalkID20;
  171.     %cmT16 CMt16;%cmT17 CMt17;%cmT18 CMt18;%cmT19 CMt19;%cmT20 CMt20;
  172.     %t20Set{TalkID16:=id16;TalkID17:=id17;TalkID18:=id18;TalkID19:=id19;
  173.         TalkID20:=id20;CMt16:=cmT16;CMt17:=cmT17;CMt18:=cmT18;
  174.         CMt19:=cmT19;CMt20:=cmT20};
  175.     loop    ({
  176.         footnote({自動トークを発送したいID情報を入力して下さい});
  177.         SNDMSG({nyuryo_f.snd});
  178.         %a @plane(
  179.             {c自動トーク発送先ID情報入力(4/4)\n}|
  180.             {t送信先ID16    /xxxxxxxxxxxxxxxxxx\n}|
  181.             {s              / 検索 \n}|
  182.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  183.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  184.             {t送信先ID17    /xxxxxxxxxxxxxxxxxx\n}|
  185.             {s              / 検索 \n}|
  186.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  187.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  188.             {t送信先ID18    /xxxxxxxxxxxxxxxxxx\n}|
  189.             {s              / 検索 \n}|
  190.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  191.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  192.             {t送信先ID19    /xxxxxxxxxxxxxxxxxx\n}|
  193.             {s              / 検索 \n}|
  194.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  195.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  196.             {t送信先ID20    /xxxxxxxxxxxxxxxxxx\n}|
  197.             {s              / 検索 \n}|
  198.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  199.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  200.             {s              / 設定 / 取消 \n},
  201.         id16,cmT16,id17,cmT17,id18,cmT18,id19,cmT19,id20,cmT20);
  202. %id16    @head(@getline(a,1,1),{\n});    %texM16    @head(@getline(a,2,1),{\n});
  203. %cmT16    @head(@getline(a,3,1),{\n});    %id17    @head(@getline(a,4,1),{\n});
  204. %texM17    @head(@getline(a,5,1),{\n});    %cmT17    @head(@getline(a,6,1),{\n});
  205. %id18    @head(@getline(a,7,1),{\n});    %texM18    @head(@getline(a,8,1),{\n});
  206. %cmT18    @head(@getline(a,9,1),{\n});    %id19    @head(@getline(a,10,1),{\n});
  207. %texM19    @head(@getline(a,11,1),{\n});    %cmT19    @head(@getline(a,12,1),{\n});
  208. %id20    @head(@getline(a,13,1),{\n});    %texM20    @head(@getline(a,14,1),{\n});
  209. %cmT20    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  210.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  211.         case    (texM16,
  212.             { 1},{%id16 @HDsearch;t20Set;im({Yes})});
  213.         case    (texM17,
  214.             { 1},{%id17 @HDsearch;t20Set;im({Yes})});
  215.         case    (texM18,
  216.             { 1},{%id18 @HDsearch;t20Set;im({Yes})});
  217.         case    (texM19,
  218.             { 1},{%id19 @HDsearch;t20Set;im({Yes})});
  219.         case    (texM20,
  220.             { 1},{%id20 @HDsearch;t20Set;im({Yes})});
  221.         case    (ok,
  222.             { 1},{t20Set;im({No})},
  223.             { 2},{im({No})}
  224.             )})};
  225. /*    通信初期値の設定*/
  226. %setPARM{
  227.     var access[5];var ap3[2];var updown[2];var who[5];
  228.     var reTime[2];var redial[2];var call[5];
  229.     %escon @YesNo(ESCon,{1});
  230.     ap3:=    @YesNo(AP3,{2});
  231.     updown:=@case    (UPDOWN,
  232.             {first},{im({1})},{last},{im({2})},
  233.             {No},{im({3})},,{im({1})});
  234.     %mailred@im(MAILDEL|MAILRED);
  235.     %maildel@case    (mailred,
  236.             {YesYes},{case(DelML,{other},{im({2})},,{im({1})})},
  237.             {YesNo},{case(DelML,{other},{im({2})},,{im({1})})},
  238.             {NoYes},{im({3})},{NoNo},{im({4})},,{im({3})});
  239.     %jisaR    @YesNo(JISAR,{1});
  240.     %pltmemo@YesNo(PLTmemo,{2});
  241.     reTime:=@case(REDIALt,{1},{im({1})},{5},{im({2})},
  242.             {10},{im({3})},,{im({4})});
  243.     redial:=@case(REDIAL,{5},{im({1})},{10},{im({2})},
  244.             {20},{im({3})},,{im({4})});
  245.     call:=@case(CALL,{固定},{im({1})},{巡回},{im({2})}
  246.             ,{無限},{im({3})},,{im({1})});
  247.     who:=@case    (WHO,
  248.             {first},{im({1})},{last},{im({2})},
  249.             {No},{im({3})},,{im({3})});
  250.     %doraend@case(DORAEND,{stopdora},{im({1})},{stopmop},{im({2})},
  251.             {continue},{im({3})},{poweroff},{im({4})},,{im({3})});
  252.     %bestCH@case(sROAD,ROAD,{im({1})},ROAD2,{im({2})},ROAD3,{im({3})},
  253.             ROAD4,{im({4})},,{im({1})});
  254.     %e    @case    (@tail(@version,{for },{ })={Win31},
  255.             {Yes},
  256.             {im({           /DORA終了/MOPT終了/DORA継続})},
  257.             {No},
  258.             {im({/DORA終了/MOPT終了/DORA継続/電源切断})}
  259.             );
  260.     loop    ({footnote({通信処理の初期値を設定してください});
  261.         SNDMSG({erande_f.snd});
  262.         %a @plane(
  263.         {c通信処理の初期値を設定してください\n}|
  264.         {rｴｽｹｰﾌﾟｼｰｹﾝｽ表示            / する /しない　\n}|
  265.         {rｱｯﾌﾟ･ﾀﾞｳﾝﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ    /最初/最後/しない \n}|
  266.         {rメール処理     /既読DEL/既読DEL他/確認/しない\n}|
  267.         {r伝言板を見る               / する /しない　\n}|
  268.         {r｢ｵｰﾄﾊﾟｲﾛｯﾄでｱｸｾｽ｣ﾒﾓをｱｯﾌﾟ  /する  /しない\n}|
  269.         {t通信開始指定時刻[HH:MM]/xxxxx\n}|
  270.         {rアクセスユーザー確認       /最初/最後/しない　\n}|
  271.         {r自動通信終了後  }|e|{\n}|
  272.         {r接続チャンネル  /ＣＨ１/ＣＨ２/ＣＨ３/ＣＨ４\n}|
  273.         {rメニューへのwaitTime(秒)　    /なし/ 5 /10 /20 \n}|
  274.         {rリダイアル回数(巡回選択時)　　/  2 / 5 /10 /20 \n}|
  275.         {rアクセス方法   /固定(断続)/巡回(断続)/固定(無限)\n}|
  276.         {s自動トークメッセージ   /セット1/セット2/セット3/セット4 \n}|
  277.         {s                          / 設定 / 取消 },
  278.     escon,updown,maildel,jisaR,pltmemo,access,
  279.     who,doraend,bestCH,reTime,redial,call);
  280.     %escon    @head(@getline(a,1,1),{\n});
  281.     %updown @head(@getline(a,2,1),{\n});
  282.     %maildel@head(@getline(a,3,1),{\n});
  283.     %jisaR    @head(@getline(a,4,1),{\n});
  284.     %pltmemo@head(@getline(a,5,1),{\n});
  285.     access:=@head(@getline(a,6,1),{\n});
  286.     %who     @head(@getline(a,7,1),{\n});
  287.     %doraend@head(@getline(a,8,1),{\n});
  288.     %bestCH    @head(@getline(a,9,1),{\n});
  289.     %reTime    @head(@getline(a,10,1),{\n});
  290.     %redial @head(@getline(a,11,1),{\n});
  291.     %call    @head(@getline(a,12,1),{\n});
  292.     %talk    @head(@getline(a,13,1),{\n});
  293.     %ok    @head(@getline(a,14,1),{\n});
  294.         case    (maildel,
  295.             { 1},{MAILDEL:={Yes};MAILRED:={No};DelML:={all}},
  296.             { 2},{MAILDEL:={Yes};MAILRED:={No};DelML:={other}},
  297.             { 3},{MAILDEL:={No};MAILRED:={Yes};DelML:={}},
  298.             ,{MAILDEL:={No};MAILRED:={No};DelML:={}});
  299.         case    (pltmemo,
  300.             { 1},{PLTmemo:={Yes}},
  301.             { 2},{PLTmemo:={No}},
  302.             ,{PLTmemo:={No}});
  303.         case    (ok,
  304.             { 1},{
  305.             UPDOWN:=@case(updown,{ 1},{im({first})},
  306.                 { 2},{im({last})},{ 3},{im({No})},
  307.                 ,{im({first})});
  308.             ESCon:=@case(escon,{ 1},{im({Yes})},{ 2},{im({No})},
  309.                 ,{im({No})});
  310.             JISAR:=@case(jisaR,{ 1},{im({Yes})},{ 2},{im({No})},
  311.                 ,{im({No})});
  312.             ACCESS:=access;
  313.             WHO:=@case(who,{ 1},{im({first})},
  314.                 { 2},{im({last})},{ 3},{im({No})},
  315.                 ,{im({No})});
  316.             REDIALt:=@case(reTime,{ 1},{im({2})},{ 2},{im({5})},
  317.                 { 3},{im({10})},,{im({20})});
  318.             REDIAL:=@case(redial,{ 1},{im({2})},{ 2},{im({5})},
  319.                 { 3},{im({10})},,{im({20})});
  320.             CALL:=@case(call,{ 1},{im({固定})},{ 2},{im({巡回})},
  321.                 { 3},{im({無限})},,{im({固定})});
  322.             DORAEND:=@case(doraend,{ 1},{im({stopdora})},
  323.                 { 2},{im({stopmop})},{ 3},{im({continue})},
  324.                 { 4},{im({poweroff})},,{im({continue})});
  325.         case    (bestCH,
  326.                 { 1},{sROAD:=@im(ROAD);genteiT:=@im(GEN)},
  327.                 { 2},{sROAD:=@im(ROAD2);genteiT:=@im(GEN2)},
  328.                 { 3},{sROAD:=@im(ROAD3);genteiT:=@im(GEN3)},
  329.                 { 4},{sROAD:=@im(ROAD4);genteiT:=@im(GEN4)},
  330.                 ,{sROAD:=@im(ROAD)}
  331.             );
  332.             im({No});
  333.             },{ 2},{im({No})},
  334.             ,
  335.             {
  336.             case    (talk,
  337.                 { 1},{selID1},{ 2},{selID2},
  338.                 { 3},{selID3},{ 4},{selID4}
  339.                 );
  340.             case    (ok={ 0}&&talk={ 0},
  341.                 {Yes},{selID1;selID2;selID3;selID4;im({No})},
  342.                 {No},{im({Yes})});
  343.             });
  344.         });
  345.     };
  346. /*RTTLC CFG OPT表示*/
  347. %writRTcfg{
  348.     FLG:={};
  349.     moveline:=1;
  350.     mes:= @case(@exist(RTop,{-#})
  351.             ,{Yes},{im(@tail(RTop,{-#},{ }))},{No},{im({})});
  352.     %RTin @im(LOG2|NET|{????.LOG});
  353.     %RTout @im(RTTLdir|{\});
  354.     loop    ({
  355.     %dble @case(@exist(RTop,{-m})||@exist(RTop,{-b})||@exist(RTop,{-g})||
  356.         @exist(RTop,{-l}),{Yes},{im({2})},,{im({1})});
  357.     %Mopt @case(@exist(RTop,{-M}),{Yes},{im({2})},,{im({1})});
  358.     %Topt @case(@exist(RTop,{-T}),{Yes},{im({2})},,{im({1})});
  359.     %Gopt @case(@exist(RTop,{-G}),{Yes},{im({2})},,{im({1})});
  360.     %Lopt @case(@exist(RTop,{-L}),{Yes},{im({2})},,{im({1})});
  361.     %Ropt @case(@exist(RTop,{-R}),{Yes},{im({2})},,{im({1})});
  362.     %Kopt @case(@exist(RTop,{-K}),{Yes},{im({2})},,{im({1})});
  363.     footnote({ログカッターRTTLCの処理を選んで下さい});
  364.         SNDMSG({nyuryo_f.snd});
  365.         %a @plane(
  366.             {c 入力ﾌｧｲﾙ=}|RTin|{です\n}|
  367.             {c 出力ﾌｧｲﾙ=}|RTout|{です\n}|
  368.             {c ｵﾌﾟｼｮﾝ=}|RTop|{です\n}|
  369.             {c                          ﾃﾞﾌｫﾙﾄ    ｵﾌﾟｼｮﾝ\n}|
  370.             {r二重出力のチェック　　　　 /する  /しない\n}|
  371.             {rトークのLOGを出力          /する  /しない\n}|
  372.             {rメールのLOGを出力          /する  /しない\n}|
  373.             {r伝言板のLOGを出力        　/する  /しない\n}|
  374.             {r最後の一言のLOGを出力    　/する  /しない\n}|
  375.             {rﾃﾝﾎﾟﾗﾘﾃﾞｨﾚｸﾄﾘを使用      　/しない/する\n}|
  376.             {cLOGが正常に処理できた場合、その対象の\n}|
  377.             {r入力ファイルを削除       　/しない/する\n}|
  378.             {tLOG出力しないボード           /\n}|
  379.             {s  検索                   　/ ﾎﾞｰﾄﾞ指定 \n}|
  380.             {s                     / 設定 / ﾁｪｯｸ  / 取消},
  381.             dble,Topt,Mopt,Gopt,Lopt,Ropt,Kopt,mes);
  382. %dble    @head(@getline(a,1,1),{\n});    %Topt    @head(@getline(a,2,1),{\n});
  383. %Mopt    @head(@getline(a,3,1),{\n});    %Gopt    @head(@getline(a,4,1),{\n});
  384. %Lopt    @head(@getline(a,5,1),{\n});    %Ropt    @head(@getline(a,6,1),{\n});
  385. %Kopt    @head(@getline(a,7,1),{\n});    mes:=    @head(@getline(a,8,1),{\n});
  386. %sarch    @head(@getline(a,9,1),{\n});    %ok    @head(@getline(a,10,1),{\n});
  387.         case    (dble,{ 2},{Dble:={Yes}},,{Dble:={}});
  388.         case    (dble={ 2}&&Mopt={ 1},{Yes},{mop:={ -m}},,{mop:={}});
  389.         case    (dble={ 2}&&Lopt={ 1},{Yes},{lop:={ -l}},,{lop:={}});
  390.         case    (dble={ 2}&&Gopt={ 1},{Yes},{gop:={ -g}},,{gop:={}});
  391.         case    (Topt,{ 2},{Top:={ -T}},,{Top:={}});
  392.         case    (Mopt,{ 2},{Mop:={ -M}},,{Mop:={}});
  393.         case    (Gopt,{ 2},{Gop:={ -G}},,{Gop:={}});
  394.         case    (Lopt,{ 2},{Lop:={ -L}},,{Lop:={}});
  395.         case    (Kopt,{ 2},{Kop:={ -K}},,{Kop:={}});
  396.         case    (Ropt,{ 2},{Rop:={-R}|TEMP2},,{Rop:={}});
  397.         case    (mes<>{},{Yes},{Nbrd:=@im({ -#}|mes)},,{Nbrd:={}});
  398.         RTop:=@im(Rop|Nbrd|mop|lop|gop|Top|Mop|Gop|Lop|Kop);
  399.         case    (@getchar(RTop,1,1)={ },{Yes},{RTop:=@getchar(RTop,2)});
  400.         case    (sarch,
  401.             { 1},{
  402.             MorL:={BoD};DeLog:={Yes};
  403.             %mes1    @MLserch(mes,MorL);
  404.             case    (mes1<>{} && mes1<>{No},
  405.                 {Yes},
  406.                 {case    (mes<>{},
  407.                     {Yes},{mes:=mes|{,}|mes1},
  408.                     {No},{mes:=mes1}
  409.                     );
  410.                 });DeLog:={}
  411.             });
  412.         case    (ok,
  413.             { 1},
  414.             {footnote({opt=}|RTop|{に設定しました});wait(1)},
  415.             { 2},{im({Yes})},
  416.             { 3},{FLG:={Return};im({No})},
  417.             ,{im({Yes})}
  418.             );
  419.         });
  420.     };
  421.  
  422. /* RTTLC CFG設定 */
  423. %setRTcfg{
  424.     var N[30];N:={0};var No[2];No:={0};
  425.     %Atyplog NET|{????.LOG};
  426.     %Btyplog {*.*};
  427.     %RTTLCcfg @read(RTcfg|{\rttlc.cfg});
  428.     case    (@exist(RTTLCcfg,Atyplog) || @exist(RTTLCcfg,Btyplog),
  429.         {Yes},{
  430.         loop    ({    N:=N+1;
  431.             %a    @getline(RTTLCcfg,N,1);
  432.             case    (a={},    
  433.                 {Yes},{im({No})},,
  434.                 {case    (@exist(a,Atyplog)||@exist(a,Btyplog),
  435.                     {Yes},
  436.                     {
  437.                     %RTin @im({ファイル名  →}|
  438.                         LOG2|NET|{????.LOG});
  439.                     RTop:=@body(@getline(RTTLCcfg,
  440.                         N+1,1),{→},{ -D});
  441.                     writRTcfg;
  442.                     case    (FLG<>{Return},
  443.                         {Yes},
  444.                         {delfile(RTcfg|{\rttlc.bak});
  445.                         renname(RTcfg|{\rttlc.cfg},
  446.                         {rttlc.bak});write(RTcfg|
  447.                         {\rttlc.cfg},@getline(RTTLCcfg,
  448.                         1,N-1)|RTin|{\n}|
  449.                         {オプション  →}|RTop|{ -D}|
  450.                         RTTLdir|{\}|CRLF);write(RTcfg|
  451.                         {\rttlc.cfg},@getline(RTTLCcfg,
  452.                         N+2))},
  453.                         {No},{});im({No})
  454.                     },
  455.                     {No},{im({Yes})}
  456.                     );
  457.                 });
  458.             });},
  459.         {No},{
  460.         %notU{→未使用};
  461.         loop    ({    N:=N+1;
  462.             %a    @getline(RTTLCcfg,N,1);
  463.             case    (a={},    
  464.                 {Yes},{im({No})},,
  465.                 {case    (@exist(a,notU),
  466.                     {Yes},
  467.                     {
  468.                     %RTin @im({使用／未使用→使用}
  469.                         |CRLF|{ファイル名  →}|
  470.                         LOG2|NET|{????.LOG});
  471.                     RTop:=@body(@getline(RTTLCcfg,
  472.                         N+1,1),{→},{ -D});
  473.                     writRTcfg;
  474.                     case    (FLG<>{Return},
  475.                         {Yes},
  476.                         {delfile(RTcfg|{\rttlc.bak});
  477.                         renname(RTcfg|{\rttlc.cfg},
  478.                         {rttlc.bak});write(RTcfg|
  479.                         {\rttlc.cfg},@getline(RTTLCcfg,
  480.                         1,N-1)|RTin|{\n}|
  481.                         {オプション  →}|RTop|{ -D}|
  482.                         RTTLdir|{\}|CRLF);write(RTcfg|
  483.                         {\rttlc.cfg},@getline(RTTLCcfg,
  484.                         N+3))},
  485.                         {No},{});im({No})
  486.                     },
  487.                     {No},{im({Yes})}
  488.                     );
  489.                 });
  490.             });
  491.         });
  492.     };
  493.  
  494. /* 詳細ｵﾌﾟｼｮﾝ設定 */
  495. %setOPT    {%aftlog @YesNo(aftLOG,{2});%frelog @YesNo(freLOG,{2});
  496.     loop    ({
  497.         footnote({詳細ｵﾌﾟｼｮﾝ条件を設定してください});
  498.         SNDMSG({erande_f.snd});
  499.         %a @plane(
  500.             {c詳細ｵﾌﾟｼｮﾝ条件選択をしてください\n}|
  501.             {cボードにアップしたテキストファイルを\n}|
  502.             {rアップ後クリア        /する /しない\n}|
  503.             {c「自由行動」のログを「\freelog」に作らず\n}|
  504.             {r巡回ログにマージ      /する /しない\n}|
  505.             {s                      / 設定 / 取消 },
  506.             aftlog,frelog);
  507.         %aftlog    @head(@getline(a,1,1),{\n});
  508.         %frelog    @head(@getline(a,2,1),{\n});
  509.         %ok    @head(@getline(a,3,1),{\n});
  510.     case    (ok,
  511.         { 1},{
  512.         case    (aftlog,
  513.             { 1},{aftLOG:={Yes}},
  514.             { 2},{aftLOG:={No}},
  515.             ,{aftLOG:={No}});
  516.         case    (frelog,
  517.             { 1},{freLOG:={Yes}},
  518.             { 2},{freLOG:={No}},
  519.             ,{freLOG:={No}});
  520.             },
  521.             ,{im({No})}
  522.             );
  523.         });
  524.     };
  525. %slctNEMU{
  526.     loop    ({SNDMSG({erande_f.snd});
  527.         footnote({<サブメニュー>設定する情報を選択して下さい});
  528.     select    ({設定メニューを選択して下さい},
  529.         60,{im({No})},
  530.         { その他の設定},{setPARM;im({Yes})},
  531.         { ログカッタRTTLC CFG設定},{
  532.         case    ( @filechk(RTcfg|{\rttlc.cfg}),
  533.             {Yes},{setRTcfg},{No},{footnote({ログカッタRTTLC.EXE}|
  534.             {をセットして下さい})});wait(2);im({Yes})},
  535.         { 微調整　　　},{setOPT;im({Yes})},
  536.         { サブメニューに戻る },{im({No})}
  537.         )});
  538.     };
  539. slctNEMU;